Option Explicit
Sub E_Sample016()
    'ո E_Data01u@
    Dim myRng1 As Range
    Dim myRng2 As Range
    Dim myCell As Range
    Dim myCnt  As Long
    Dim myKey  As String
    Set myRng1 = Range("A1").CurrentRegion			'ӷd
    Set myRng2 = Range("K1:L2")               			'd
    'NJxsd
    myRng2.Cells(1, 1) = myRng1.Cells(1, 3)			'wWr
    myRng2.Cells(1, 2) = myRng1.Cells(1, 6)			'z
    myRng2.Cells(2, 1) = "s*"					'w
    myRng2.Cells(2, 2) = ">50"
    myRng1.AdvancedFilter _
    Action:=xlFilterInPlace, _
    CriteriaRange:=myRng2
    For Each myCell In myRng2.Cells
        myCell.Clear				'R
    Next
    Set myRng1 = Nothing			'
    Set myRng2 = Nothing
End Sub
